Sub Ʈ( As String)

    Dim  As Range, c As Integer
    Dim  As Range

    Set  = Range("C2", Range("C2").End(xlToRight))
    c = WorksheetFunction.Match(, , 0)
            
    Set  = Range("B2").CurrentRegion.Columns(1)
    Set  = Union(, .Offset(, c))

    ActiveSheet.Shapes.AddChart(Width:=300, Height:=200).Select
    
    With ActiveChart
        
        .SetSourceData Source:=
        .ChartType = xlColumnClustered
        .ChartStyle = 208
        .ChartGroups(1).GapWidth = 80
        .SetElement Element:=msoElementDataLabelOutSideEnd
        .Legend.Delete
        
        With .ChartTitle
            .Text = .Areas(2).Cells(1).Value & " Ǹ "
            .Format.TextFrame2.TextRange.Characters.Font.Size = 14
        End With
    
End Sub